Imports System.Data.SqlClient
Imports System.Xml
Public Class dFacOtras
    Public Function Existe(ByVal CodigoFacOtras As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoFacOtras <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoFacOtras", CodigoFacOtras))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblFacOtrasBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal CodigoFactura As String, _
    ByVal CodigoImputacion As String, ByVal Importe As String, ByVal Fecha As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoFactura <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoFactura", CInt(CodigoFactura)))
        End If
        If CodigoImputacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CInt(CodigoImputacion)))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", CDbl(Importe)))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblFacOtrasALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoFacOtras As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoFacOtras <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoFacOtras", CodigoFacOtras))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblFacOtrasELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoFacOtras As String, ByVal CodigoFactura As String, _
    ByVal CodigoImputacion As String, ByVal Importe As String, ByVal Fecha As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoFacOtras <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoFacOtras", CodigoFacOtras))
        End If
        If CodigoFactura <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoFactura", CodigoFactura))
        End If
        If CodigoImputacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblFacOtrasMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoFacOtras As String, ByVal CodigoFactura As String, _
    ByVal CodigoImputacion As String, ByVal Importe As String, ByVal Fecha As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoFacOtras <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoFacOtras", CodigoFacOtras))
        End If
        If CodigoFactura <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoFactura", CodigoFactura))
        End If
        If CodigoImputacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblFacOtrasBuscarFiltrado", Parametros)
    End Function
End Class
